From: Jim Blandy <jimb@redhat.com>
Date: Thu, 11 Mar 1993 07:01:17 +0000 (+0000)
Subject: * term/x-win.el: Disable suspending under X windows by setting
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96957
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=51420cc7c2711e2ccf3b1fa20ab8c9861c91380a;p=emacs.git

* term/x-win.el: Disable suspending under X windows by setting
	suspend-hooks, not suspend-hook.  The latter is an obsolete name.
	Use add-hook instead of setting suspend-hooks directly.
---

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 91a50f6491c..a8f9ecb571d 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -508,9 +508,10 @@ This returns ARGS with the arguments that have been processed removed."
 		       (setq x-display-name (getenv "DISPLAY"))))
 
 (setq frame-creation-function 'x-create-frame)
-(setq suspend-hook
-      '(lambda ()
-	 (error "Suspending an emacs running under X makes no sense")))
+
+(defun x-win-suspend-error ()
+  (error "Suspending an emacs running under X makes no sense"))
+(add-hook 'suspend-hooks 'x-win-suspend-error)
 
 ;;; Arrange for the kill and yank functions to set and check the clipboard.
 (setq interprogram-cut-function 'x-select-text)